home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / pcq_incl3v1.lha / DOS / Var.i < prev   
Encoding:
Text File  |  1994-06-12  |  2.0 KB  |  59 lines
  1.  
  2. {$I   "Include:Exec/Nodes.i"}
  3.  
  4. {      the structure in the pr_LocalVars list }
  5. {      Do NOT allocate yourself, use SetVar()!!! This structure may grow in }
  6. {      future releases!  The list should be left in alphabetical order, and }
  7. {      may have multiple entries with the same name but different types.    }
  8. Type
  9.        LocalVar = Record
  10.         lv_Node  : Node;
  11.         lv_Flags : Short;
  12.         lv_Value : String;
  13.         lv_Len   : Integer;
  14.        END;
  15.        LocalVarPtr = ^LocalVar;
  16.  
  17. {
  18.  * The lv_Flags bits are available to the application.  The unused
  19.  * lv_Node.ln_Pri bits are reserved for system use.
  20.  }
  21.  
  22. CONST
  23. {      bit definitions for lv_Node.ln_Type: }
  24.        LV_VAR               =   0;       {      an variable }
  25.        LV_ALIAS             =   1;       {      an alias }
  26. {      to be or'ed into type: }
  27.        LVB_IGNORE           =   7;       {      ignore this entry on GetVar, etc }
  28.        LVF_IGNORE           =   $80;
  29.  
  30. {      definitions of flags passed to GetVar()/SetVar()/DeleteVar() }
  31. {      bit defs to be OR'ed with the type: }
  32. {      item will be treated as a single line of text unless BINARY_VAR is used }
  33.        GVB_GLOBAL_ONLY       =  8   ;
  34.        GVF_GLOBAL_ONLY       =  $100;
  35.        GVB_LOCAL_ONLY        =  9   ;
  36.        GVF_LOCAL_ONLY        =  $200;
  37.        GVB_BINARY_VAR        =  10  ;            {      treat variable as binary }
  38.        GVF_BINARY_VAR        =  $400;
  39.  
  40. { this is only supported in >= V39 dos.  V37 dos ignores this. }
  41. { this causes SetVar to affect ENVARC: as well as ENV:.        }
  42.       GVB_SAVE_VAR           = 12 ;     { only with GVF_GLOBAL_VAR }
  43.       GVF_SAVE_VAR           = $1000 ;
  44.  
  45.  
  46. FUNCTION DeleteVar(name : String; VarType : Integer) : Boolean;
  47.     External;
  48.  
  49. FUNCTION FindVar(name : String; flags : Integer) : LocalVarPtr;
  50.     External;
  51.  
  52. FUNCTION GetVar(name : String; VAR Buffer : String; BufferSize : Integer; flags : Integer) : Integer;
  53.     External;
  54.  
  55. FUNCTION SetVar(name, new : String; len, flags : Integer) : Boolean;
  56.     External;
  57.  
  58.  
  59.